home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / scripts / Mediaprojekt < prev    next >
Text File  |  2000-05-08  |  1KB  |  105 lines
  1. ; Media-Player-Skript V1.0ß © 1999 by Cord Hagen
  2.  
  3. ; - - - - - - - - - - - - - - - - - - - - - - - - -
  4. ; Ask CDin
  5.  
  6. ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
  7. IF EXISTS ENV:ASSAFCD
  8. ; - - - - - - - - - - - - 
  9.  SETENV AFMEDIA=AUTO  ; MANU
  10. ; - - - - - - - - - - - -
  11.  SKIP GO
  12. ENDIF
  13. BLACK
  14. ECHO "*n Die AMIGA-FUTURE-CD-ROM ist NICHT angemeldet."
  15. ECHO " Starten Sie bitte zunächst -> QUICKSTART <- im Hauptverzeichnis dieser CD-ROM."
  16. ECHO " Erst danach können Sie Mediashows starten ...."
  17. WAIT 8
  18. SKIP ENDE
  19.  
  20.  
  21. ; - - - - - - - - - - - - - - - - - - - - - - - - - -
  22. ; Prefs
  23.  
  24. LAB PREFS
  25.  
  26. BLACK
  27. ECHO "Manuelle Prefs !"
  28. LMB
  29.  
  30. SKIP CONT
  31.  
  32.  
  33.  
  34. ; Autoprefs
  35.  
  36. LAB GO
  37.  
  38. ASSIGN FPTARGET: ""
  39.  
  40. IF EXISTS FPTARGET:#?.MP3
  41.  SETENV MEDIA=MP3
  42.  SKIP MP3
  43. ENDIF
  44.  
  45. IF EXISTS FPTARGET:#?.GIF
  46.  SETENV MEDIA=PIX
  47.  SKIP PIX
  48. ENDIF
  49.  
  50. IF EXISTS FPTARGET:#?.JPG
  51.  SETENV MEDIA=PIX
  52.  SKIP PIX
  53. ENDIF
  54.  
  55. IF EXISTS FPTARGET:#?.IFF
  56.  SETENV MEDIA=PIX
  57.  SKIP PIX
  58. ENDIF
  59.  
  60. IF EXISTS FPTARGET:#?.PNG
  61.  SETENV MEDIA=MP3
  62.  SKIP PIX
  63.  
  64. ENDIF
  65. IF EXISTS FPTARGET:#?.BMP
  66.  SETENV MEDIA=MP3
  67.  SKIP PIX
  68. ENDIF
  69.  
  70. ; - - - - -
  71.  
  72. LAB PIX
  73. BLACK
  74. ECHO "Gefundene Daten in " FPTARGET:
  75. ECHO $MEDIA
  76.  
  77. SKIP PREFS BACK
  78.  
  79. LAB CONT
  80.  
  81.  
  82.  
  83.  
  84. ; - - - - - MP3 Routinen - - - - -
  85.  
  86. ; *** Next Version
  87.  
  88. LAB MP3
  89. BLACK
  90. ECHO "MP3 wird von diesem Skript zur Zeit noch nicht unterstüzt ...."
  91. WAIT 5
  92. SKIP ENDE
  93.  
  94. ; - - - - - - E N D E - - - - - - -
  95.  
  96. LAB ENDE
  97. IF EXISTS ENV:ASSAFCD
  98.  SETENV AFCDCHK=0
  99.  SETENV SCRDIR=0
  100.  RUN >NIL: PLAY16 SFX:CLICK.WAV
  101. ENDIF
  102. ENDCLI
  103.  
  104.  
  105.